home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Resource V24148852001.psc / mEnumResourse.bas < prev    next >
Encoding:
BASIC Source File  |  2001-07-17  |  2.3 KB  |  59 lines
  1. Attribute VB_Name = "mEnumResourse"
  2. Private Declare Function EnumResourceTypes Lib "kernel32" Alias "EnumResourceTypesA" (ByVal hModule As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
  3. Private Declare Function EnumResourceNames Lib "kernel32" Alias "EnumResourceNamesA" (ByVal hModule As Long, ByVal lpType As String, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
  4. Private Declare Function EnumResourceNamesById Lib "kernel32" Alias "EnumResourceNamesA" (ByVal hModule As Long, ByVal lpType As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
  5. Dim tv As TreeView, nd As Node
  6.  
  7. Function ResTypesCallBack(ByVal hMod As Long, ByVal ResType As Long, ByVal lParam As Long) As Long
  8.     Dim nd As Node
  9.     If (ResType And &HFFFF0000) = 0 Then
  10.         Set nd = tv.Nodes.Add(tv.Nodes.Item(1), tvwChild, "#" & CStr(ResType), ResTypeName(ResType), 2, 3)
  11.         tv.Nodes.Add nd, tvwChild, , "Dummy"
  12.     Else    ' The resource type is defined by a string
  13.         Set nd = tv.Nodes.Add(tv.Nodes.Item(1), tvwChild, , StrFromPtrA(ResType), 2, 3)
  14.         tv.Nodes.Add nd, tvwChild, , "Dummy"
  15.     End If
  16.     Set nd = Nothing
  17.     ResTypesCallBack = True
  18. End Function
  19.  
  20. Function ResNamesCallBack(ByVal hMod As Long, ByVal ResType As Long, ByVal ResId As Long, ByVal lParam As Long) As Long
  21.     If (ResId And &HFFFF0000) <> 0 Then
  22.        tv.Nodes.Add nd, tvwChild, , StrFromPtrA(ResId), 4, 4
  23.     Else
  24.        tv.Nodes.Add nd, tvwChild, , CStr(ResId), 4, 4
  25.     End If
  26.     ResNamesCallBack = True
  27. End Function
  28.  
  29. Public Function FillResTypes(ByVal tvw As TreeView, ByVal sFileName As String, ByVal sLibName As String)
  30.    Dim ret As Long
  31.    Set tv = tvw
  32.    tv.Nodes.Clear= tvw
  33.    tv.Nodes.Clear= tvw
  34.    tv.     ElsimdBac
  35. kodoeeem3STrTls Long
  36.  = t nkmdBac
  37. kodoeeem3STrTls L
  38. kodoeee(m tv"TVt A L
  39. TrT4, 4
  40.     Endr tv
  41. nr 
  42. s(ld, , "Dummy"
  43. euelvaeTypes(ByVaeieimdBac
  44. kodoeeem3STrTls Long
  45.  = t nkmdBac
  46. ong
  47.  "Dum n bVn tv
  48. nr 
  49. s(ld, , "Dummy"
  50. eu tv
  51. nr 
  52. sTypd nd, tvwCrs
  53. sTya(ld AseBo(
  54. oLe 
  55. s
  56.  = t nkmdBillClear= tvy(.mdBac
  57. kodoeeem3STrTls Long
  58.  = t nkmdBac
  59. ong
  60.  "Dum n bVn tvpd nd, tvwCrs
  61. sTya(ld AseBo(
  62. oLe 
  63. s
  64.  = t nkmdBillClear= tvy(.mBelvt,Cttong
  65. mh hild, , CStr(ResL
  66. TrT4tv.    bVn tng
  67.  "Dumg
  68.  "Dumg
  69.  "
  70. Dumm"tvy(.mdBac
  71. kodoeeem3STrTls Long
  72.  = t nkmdBac
  73. ong
  74.  "Dum n bVn t2ek t= t nkmdBtO(BillaaderPy0Pv.    bVn tng   (.mdBac
  75. Vn